(* %filename% -- application class *)
(* Created %date% %time% by AppMaker *)

DEFINITION MODULE U%appname%;

FROM UMenuSetup IMPORT
	CmdNumber;
FROM UMacApp IMPORT
	TApplication, TDocument, TCommand, TWindow;
	%for each dialog gen uses%

(*${QINSPECTOR*)
FROM UMacAppUtilities IMPORT
	DoToFieldMETHOD;
(*$}*)

TYPE
	T%appname%App	= OBJECT (TApplication)
		%for each dialog gen instanceModeless%

		METHOD I%appname%App;
		OVERRIDE METHOD DoMakeDocument	(itsCmdNumber:	CmdNumber): TDocument;
		OVERRIDE METHOD DoSetupMenus;
		OVERRIDE METHOD DoMenuCommand	(aCmdNumber:	CmdNumber): TCommand;
		%for each menu gen doItems.decl%

	(*${QINSPECTOR*)
		OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
	(*$}*)
	END(*T%appname%App*);

END U%appname%.
